﻿#If FULL_DEBUG Then
<Conditional("FULL_DEBUG")>
Public Class frmPackedFileInformation

    Private Sub lblStartOffset_Click(sender As System.Object, e As System.EventArgs) Handles lblStartOffset.Click
        Clipboard.SetText(sender.Text)
    End Sub

    Private Sub lblInternalSize_Click(sender As System.Object, e As System.EventArgs) Handles lblInternalSize.Click
        Clipboard.SetText(sender.Text)
    End Sub

    Private Sub lblEndOffset_Click(sender As System.Object, e As System.EventArgs) Handles lblEndOffset.Click
        Clipboard.SetText(sender.Text)
    End Sub

    Private Sub lblHash_Click(sender As System.Object, e As System.EventArgs) Handles lblHash.Click
        Clipboard.SetText(sender.Text)
    End Sub

    Private file As Arps.InternalDebug.PackedFileInternalInformation
    Private filename As String
    Private path As String
    Public Sub New(ByVal pFile As Arps.InternalDebug.PackedFileInternalInformation, ByVal pFilename As String, ByVal pPath As String)
        InitializeComponent()

        file = pFile
        filename = pFilename
        path = pPath

        Text = pFilename
    End Sub

    Private Sub frmPackedFileInformation_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        lblFilename.Text = filename
        lblPath.Text = path

        panelFileDetails.Top = lblPath.Bottom + 6
        lblStartOffset.Text = file.StartOffset
        lblInternalSize.Text = file.Length
        lblEndOffset.Text = file.StartOffset + file.Length
        lblHash.Text = file.MD5

        Me.Height = panelFileDetails.Bottom + 37
    End Sub
End Class
#End If
